home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / Wild < prev    next >
Encoding:
Text File  |  1990-09-14  |  864 b   |  40 lines  |  [TEXT/MPS ]
  1. #    Wild - single wild card command interpreter
  2. #
  3. #    Command line:  Wild command source destination
  4. #    Example:    Wild Rename =.TEXT =
  5. #
  6. #    Parameters:
  7. #    {1} = command
  8. #    {2} = srcfilespec
  9. #    {3} = destfilespec
  10.  
  11. If {#} < 3
  12.     Echo "# {0} - Not enough parameters were specified."
  13.     Exit
  14. End
  15. If {#} > 3
  16.     Echo "# {0} - Too many parameters were specified."
  17.     Exit
  18. End
  19. If "{2}" !~ /≈=≈/
  20.     Echo "# {0} - No = was specified in the source file name."
  21.     Exit
  22. End
  23. If "{3}" !~ /≈=≈/
  24.     Echo "# {0} - No = was specified in the destination file name."
  25.     Exit
  26. End
  27.  
  28. ( Evaluate "{2}" =~ /(≈)®1=(≈)®2/ ) > dev:null
  29. Set sourcePre "{®1}"
  30. Set sourcePost "{®2}"
  31.  
  32. ( Evaluate "{3}" =~ /(≈)®1=(≈)®2/ ) > dev:null
  33. Set destPre "{®1}"
  34. Set destPost "{®2}"
  35.  
  36. For name In "{sourcePre}"≈"{sourcePost}"
  37.     ( Evaluate "{name}" =~ /{sourcePre}(≈)®1{sourcePost}/ ) > dev:null
  38.     {1} "{name}" "{destPre}{®1}{destPost}"
  39. End
  40.